﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Imports System.Text

Namespace Credentials

    Friend Class CanonicalizedString
        Private canonicalizedStringValue As New StringBuilder()

        Friend Sub New(ByVal initialElement As String)
            Me.canonicalizedStringValue.Append(initialElement)
        End Sub

        Friend ReadOnly Property Value() As String
            Get
                Return Me.canonicalizedStringValue.ToString()
            End Get
        End Property

        Friend Sub AppendCanonicalizedElement(ByVal element As String)
            Me.canonicalizedStringValue.Append(vbLf)
            Me.canonicalizedStringValue.Append(element)
        End Sub
    End Class
End Namespace